Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie]Pascal, dziala div a nie dziala /


Rekomendowane odpowiedzi

Opublikowano

Witam!

Chciałbym się od Was dowiedziec dlaczego w tym programie w funkcji dzielenie zamiast "/" musze uzywac div, co jest nie tak? Jesli zamiast div wstawie "/" to przy kompilacji mam blad "type mismatch".

program liczby;
uses crt;
var
 a,b,wynik : integer;

function dodawanie(a:integer;b:integer):integer;
	begin
		dodawanie := a+b;
	end;
function mnozenie(a:integer;b:integer):integer;
	begin
		mnozenie := a*b;
	end;
function odejmowanie(a:integer;b:integer):integer;
	begin
		odejmowanie := a-b;
	end;

function dzielenie(a:integer;b:integer):integer;
	begin
		dzielenie := a div b;
	end;
	
begin
	clrscr;
	writeln('Podaj dwie liczby');
	readln(a,;
	
	wynik := dodawanie(a,;
	writeln('Suma liczb ',a,' i ',b,' wynosi: ',wynik);
	
	wynik := odejmowanie(a,;
	writeln('Roznica liczb ',a,' i ',b,' wynosi: ',wynik);
	
	wynik := mnozenie(a,;
	writeln('Iloczyn liczb ',a,' i ',b,' wynosi: ',wynik);
	
		if b=0 then
		begin
			writeln('Nie mozna dzielic przez zero');
		end
			else
		begin
			wynik := dzielenie(a,;
			writeln('Iloraz liczb ',a,' i ',b,' wynosi: ',wynik);
		end;
	readln;
end.

Kocham mpcforum.pl!!!

18706.png

Opublikowano

Bo pascal jest takim ułomnym językiem, gdzie aby podzielić liczby tylko całkowitego musisz użyć operatora div. Operator / działa tylko dla typów zmiennoprzecinkowych.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...